1 PRINT"[147]WORKING":FORAD=832TO959:POKEAD,0:NEXT:Q=255
2 PRINT".";:READN
3 IFN>QTHENAD=N:GOTO2
4 POKEAD,N:IFAD<879THENPOKEAD+64,N
5 AD=AD+1:IFN<>240THEN2
6 DATA842,48,0,255,239,252,0,48,0,0,252,0,3,187,0,3,187,0,3,187,0,15,187
7 DATA192,2,254,0,3,171,0,0,204,0,0,204,0,0,204,0,0,204,0,0,204,0,3,207
8 DATA0,12,204,192,12,0,192,902,12,0,192,51,51,48,192,220,12,918,119,921,119
9 DATA0,15,119,192,1,253,0,3,87,0,0,252,938,3,3,944,63,207,240
10 P=256:V=53248:POKE V+32,0:POKE V+33,0:PRINTCHR$(147):POKEV+21,1:POKE646,6
25 B$=CHR$(184):FORI=1TO4:B$=B$+B$:NEXT:M$(0)=B$:M$(4)=M$(0):N=1
30 M$(1)="THE SPRITE WILL":M$(2)="PASS UNDER THESE":M$(3)="LETTERS"
35 M$(5)="ABOVE":FORI=0TO4:PRINTTAB(N)M$(I):NEXT:N=N+22:IFN<40THEN35
37 FORI=0TO2:PRINTCHR$(145);:NEXT:PRINTTAB(N-22+5)M$(5)
40 XLO=100:X=XLO:XH=0:Y=100:DX=1:DY=0:R=29:B=13:C=7:C1=1:C2=2:GOSUB250
90 GETR$:IFR$=""THEN102
100 R=ASC(R$):ON-(R=81)GOTO210
102 ON-(R<73ORR>77)GOTO140
105 DX=-(R=76)+(R=74):DY=-(R=77)+(R=73)
140 GOSUB250:B=B+1+(B=14)*2:GOTO90
210 POKE V+21,0:END
250 X=X+DX-512*(X=0ANDDX=-1)+512*(X=511ANDDX=1):XLO=X+P*(X>Q):XH=-(X>Q)
254 Y=Y+DY-P*(Y=0ANDDY=-1)+P*(Y=QANDDY=1)
255 POKE V,XLO:POKE V+16,XH:C=C-(R=67)+(C=Q)*P:POKE V+39,C
256 W=W-(R=88)+P*(W=Q):POKE V+29,W:H=H-(R=89)+P*(H=Q):POKEV+23,H
258 MC=MC-(R=66)+P*(MC=Q):POKE V+28,MC:C1=C1-(R=49)+P*(C1=Q):POKEV+37,C1
260 C2=C2-(R=50)+P*(C2=Q):POKE V+38,C2:POKEV+27,1+(XLO<0ORXLO+P*XHI>160)
262 POKE V+1,Y:POKE2040,B:R=0:RETURN